/ QuickTime - The Beta Release / QuickTime - The Beta Release.iso / Programming Stuff / Human Interface / Human Interface Demos / Movie Recorder Demo / Movie Recorder Demo.rsrc / STXT_1185

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 0c 00 00 19 aa | 00 00 03 9a 2d 2d 0d 6d |........|....--.m|
|00000010| 61 63 72 6f 20 69 6e 69 | 74 44 65 6d 6f 0d 69 6e |acro ini|tDemo.in|
|00000020| 73 74 61 6c 6c 4d 65 6e | 75 20 43 34 37 0d 73 65 |stallMen|u C47.se|
|00000030| 74 20 74 68 65 20 74 65 | 78 74 20 6f 66 20 63 61 |t the te|xt of ca|
|00000040| 73 74 20 43 32 32 3d 22 | 20 20 22 0d 73 65 74 20 |st C22="|  ".set |
|00000050| 74 68 65 20 74 65 78 74 | 20 6f 66 20 63 61 73 74 |the text| of cast|
|00000060| 20 43 34 36 3d 20 22 20 | 20 4e 6f 6e 65 22 0d 73 | C46= " | None".s|
|00000070| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 63 |et the t|ext of c|
|00000080| 61 73 74 20 43 33 37 3d | 22 33 30 20 46 72 61 6d |ast C37=|"30 Fram|
|00000090| 65 73 20 50 65 72 20 53 | 65 63 6f 6e 64 22 0d 73 |es Per S|econd".s|
|000000a0| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 63 |et the t|ext of c|
|000000b0| 61 73 74 20 43 31 31 20 | 3d 20 22 20 20 41 70 70 |ast C11 |= "  App|
|000000c0| 6c 65 22 0d 73 65 74 20 | 74 68 65 20 73 65 6c 53 |le".set |the selS|
|000000d0| 74 61 72 74 20 74 6f 20 | 30 0d 73 65 74 20 74 68 |tart to |0.set th|
|000000e0| 65 20 73 65 6c 45 6e 64 | 20 74 6f 20 30 0d 73 65 |e selEnd| to 0.se|
|000000f0| 74 20 74 68 65 20 68 69 | 6c 69 74 65 20 6f 66 20 |t the hi|lite of |
|00000100| 63 61 73 74 20 43 36 38 | 3d 74 72 75 65 0d 73 65 |cast C68|=true.se|
|00000110| 74 20 74 68 65 20 68 69 | 6c 69 74 65 20 6f 66 20 |t the hi|lite of |
|00000120| 63 61 73 74 20 43 37 31 | 3d 66 61 6c 73 65 0d 2d |cast C71|=false.-|
|00000130| 2d 20 0d 6d 61 63 72 6f | 20 69 6e 69 74 50 6f 70 |- .macro| initPop|
|00000140| 4d 65 6e 75 0d 20 20 20 | 20 6f 70 65 6e 58 4c 69 |Menu.   | openXLi|
|00000150| 62 20 20 22 50 6f 70 55 | 70 20 4d 65 6e 75 20 58 |b  "PopU|p Menu X|
|00000160| 4f 62 6a 22 0d 20 20 20 | 20 73 65 74 20 74 68 65 |Obj".   | set the|
|00000170| 20 69 6d 6d 65 64 69 61 | 74 65 20 6f 66 20 73 70 | immedia|te of sp|
|00000180| 72 69 74 65 20 36 20 74 | 6f 20 54 52 55 45 20 20 |rite 6 t|o TRUE  |
|00000190| 2d 2d 74 68 65 20 74 65 | 78 74 20 66 69 65 6c 64 |--the te|xt field|
|000001a0| 0d 20 20 20 20 4d 61 6b | 65 50 6f 70 41 6c 70 68 |.    Mak|ePopAlph|
|000001b0| 61 32 0d 20 20 20 70 75 | 70 70 65 74 53 70 72 69 |a2.   pu|ppetSpri|
|000001c0| 74 65 20 39 2c 74 72 75 | 65 20 2d 2d 20 74 68 65 |te 9,tru|e -- the|
|000001d0| 20 73 6c 69 64 65 62 75 | 74 74 6f 6e 0d 20 20 20 | slidebu|tton.   |
|000001e0| 20 73 65 74 20 74 68 65 | 20 69 6d 6d 65 64 69 61 | set the| immedia|
|000001f0| 74 65 20 6f 66 20 73 70 | 72 69 74 65 20 39 3d 74 |te of sp|rite 9=t|
|00000200| 72 75 65 0d 0d 2d 2d 0d | 6d 61 63 72 6f 20 69 6d |rue..--.|macro im|
|00000210| 61 67 65 53 6c 69 64 65 | 72 0d 67 6c 6f 62 61 6c |ageSlide|r.global|
|00000220| 20 62 65 67 69 6e 46 72 | 61 6d 65 2c 65 6e 64 46 | beginFr|ame,endF|
|00000230| 72 61 6d 65 2c 63 75 72 | 72 65 6e 74 46 72 61 6d |rame,cur|rentFram|
|00000240| 65 0d 73 65 74 20 74 68 | 65 20 69 6e 6b 20 6f 66 |e.set th|e ink of|
|00000250| 20 73 70 72 69 74 65 20 | 39 3d 34 0d 72 65 70 65 | sprite |9=4.repe|
|00000260| 61 74 20 77 68 69 6c 65 | 20 74 68 65 20 6d 6f 75 |at while| the mou|
|00000270| 73 65 44 6f 77 6e 0d 20 | 20 20 20 0d 20 20 20 20 |seDown. |   .    |
|00000280| 73 65 74 20 74 68 65 20 | 6c 6f 63 48 20 6f 66 20 |set the |locH of |
|00000290| 73 70 72 69 74 65 20 39 | 3d 63 6f 6e 73 74 72 61 |sprite 9|=constra|
|000002a0| 69 6e 48 28 38 2c 74 68 | 65 20 6d 6f 75 73 65 48 |inH(8,th|e mouseH|
|000002b0| 29 0d 20 20 20 20 2d 2d | 20 69 73 20 74 68 65 20 |).    --| is the |
|000002c0| 63 75 72 72 65 6e 74 46 | 72 61 6d 65 20 74 68 65 |currentF|rame the|
|000002d0| 20 74 61 6c 6b 69 6e 67 | 20 68 65 61 64 2c 20 74 | talking| head, t|
|000002e0| 68 65 6e 0d 20 20 20 20 | 2d 2d 73 65 74 20 69 74 |hen.    |--set it|
|000002f0| 20 6f 74 20 63 6f 70 79 | 0d 20 20 20 20 69 66 20 | ot copy|.    if |
|00000300| 63 75 72 72 65 6e 74 46 | 72 61 6d 65 3c 20 41 33 |currentF|rame< A3|
|00000310| 36 20 74 68 65 6e 20 73 | 65 74 20 74 68 65 20 69 |6 then s|et the i|
|00000320| 6e 6b 20 6f 66 20 73 70 | 72 69 74 65 20 33 20 3d |nk of sp|rite 3 =|
|00000330| 33 36 0d 20 20 20 20 69 | 66 20 63 75 72 72 65 6e |36.    i|f curren|
|00000340| 74 46 72 61 6d 65 3d 41 | 33 36 20 74 68 65 6e 20 |tFrame=A|36 then |
|00000350| 73 65 74 20 74 68 65 20 | 69 6e 6b 20 6f 66 20 73 |set the |ink of s|
|00000360| 70 72 69 74 65 20 33 20 | 3d 30 0d 20 20 20 20 20 |prite 3 |=0.     |
|00000370| 20 20 20 69 66 20 63 75 | 72 72 65 6e 74 46 72 61 |   if cu|rrentFra|
|00000380| 6d 65 20 3e 20 65 6e 64 | 46 72 61 6d 65 20 74 68 |me > end|Frame th|
|00000390| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 63 |en.     |   set c|
|000003a0| 75 72 72 65 6e 74 46 72 | 61 6d 65 3d 62 65 67 69 |urrentFr|ame=begi|
|000003b0| 6e 46 72 61 6d 65 0d 20 | 20 20 20 20 65 6c 73 65 |nFrame. |    else|
|000003c0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|000003d0| 20 63 61 73 74 4e 75 6d | 20 6f 66 20 73 70 72 69 | castNum| of spri|
|000003e0| 74 65 20 33 3d 20 63 75 | 72 72 65 6e 74 46 72 61 |te 3= cu|rrentFra|
|000003f0| 6d 65 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 63 |me.     |   set c|
|00000400| 75 72 72 65 6e 74 46 72 | 61 6d 65 3d 63 75 72 72 |urrentFr|ame=curr|
|00000410| 65 6e 74 46 72 61 6d 65 | 2b 31 0d 20 20 20 20 65 |entFrame|+1.    e|
|00000420| 6e 64 20 69 66 20 20 20 | 20 20 20 20 20 0d 20 20 |nd if   |     .  |
|00000430| 20 20 75 70 64 61 74 65 | 53 74 61 67 65 0d 65 6e |  update|Stage.en|
|00000440| 64 20 72 65 70 65 61 74 | 0d 73 65 74 20 6e 65 77 |d repeat|.set new|
|00000450| 4c 6f 63 48 3d 74 68 65 | 20 6c 6f 63 48 20 6f 66 |LocH=the| locH of|
|00000460| 20 73 70 72 69 74 65 20 | 39 0d 73 65 74 20 74 68 | sprite |9.set th|
|00000470| 65 20 69 6e 6b 20 6f 66 | 20 73 70 72 69 74 65 20 |e ink of| sprite |
|00000480| 39 3d 30 0d 2d 2d 69 73 | 20 74 68 65 20 74 68 75 |9=0.--is| the thu|
|00000490| 6d 62 20 62 65 6c 6f 77 | 20 31 2f 32 0d 69 66 20 |mb below| 1/2.if |
|000004a0| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|000004b0| 74 65 20 39 20 3c 20 34 | 31 36 20 74 68 65 6e 0d |te 9 < 4|16 then.|
|000004c0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 48 |    set |the locH|
|000004d0| 20 6f 66 20 73 70 72 69 | 74 65 20 39 3d 74 68 65 | of spri|te 9=the|
|000004e0| 20 6c 65 66 74 20 6f 66 | 20 73 70 72 69 74 65 20 | left of| sprite |
|000004f0| 38 0d 65 6e 64 20 69 66 | 0d 0d 2d 2d 69 73 20 74 |8.end if|..--is t|
|00000500| 68 65 20 74 68 75 6d 62 | 20 62 65 74 77 65 65 6e |he thumb| between|
|00000510| 20 31 20 61 6e 64 20 32 | 3f 0d 69 66 20 6e 65 77 | 1 and 2|?.if new|
|00000520| 4c 6f 63 48 20 3c 20 34 | 36 34 20 61 6e 64 20 6e |LocH < 4|64 and n|
|00000530| 65 77 4c 6f 63 68 20 3e | 34 31 36 20 74 68 65 6e |ewLoch >|416 then|
|00000540| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00000550| 48 20 6f 66 20 73 70 72 | 69 74 65 20 39 3d 34 33 |H of spr|ite 9=43|
|00000560| 39 0d 65 6e 64 20 69 66 | 20 0d 2d 2d 0d 69 66 20 |9.end if| .--.if |
|00000570| 6e 65 77 4c 6f 63 48 20 | 3c 20 35 30 38 20 61 6e |newLocH |< 508 an|
|00000580| 64 20 6e 65 77 4c 6f 63 | 68 20 3e 34 36 34 20 74 |d newLoc|h >464 t|
|00000590| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |hen.    |set the |
|000005a0| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 39 |locH of |sprite 9|
|000005b0| 3d 34 38 35 0d 65 6e 64 | 20 69 66 20 0d 0d 69 66 |=485.end| if ..if|
|000005c0| 20 6e 65 77 4c 6f 63 48 | 20 3c 20 35 35 31 20 61 | newLocH| < 551 a|
|000005d0| 6e 64 20 6e 65 77 4c 6f | 63 68 20 3e 35 30 38 20 |nd newLo|ch >508 |
|000005e0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then.   | set the|
|000005f0| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00000600| 39 3d 35 33 32 0d 65 6e | 64 20 69 66 20 0d 0d 69 |9=532.en|d if ..i|
|00000610| 66 20 6e 65 77 4c 6f 63 | 68 3e 35 35 31 20 74 68 |f newLoc|h>551 th|
|00000620| 65 6e 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |en .    |set the |
|00000630| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 39 |locH of |sprite 9|
|00000640| 3d 74 68 65 20 72 69 67 | 68 74 20 6f 66 20 73 70 |=the rig|ht of sp|
|00000650| 72 69 74 65 20 38 0d 65 | 6e 64 20 69 66 0d 63 79 |rite 8.e|nd if.cy|
|00000660| 63 6c 65 43 61 73 74 0d | 0d 2d 2d 0d 6d 61 63 72 |cleCast.|.--.macr|
|00000670| 6f 20 72 65 73 65 74 43 | 6f 6d 70 72 65 73 73 69 |o resetC|ompressi|
|00000680| 6f 6e 0d 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |on.repea|t while |
|00000690| 74 68 65 20 6d 6f 75 73 | 65 44 6f 77 6e 0d 20 20 |the mous|eDown.  |
|000006a0| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 4e 75 |  set th|e castNu|
|000006b0| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 31 34 3d 42 |m of spr|ite 14=B|
|000006c0| 37 32 0d 20 20 20 20 75 | 70 44 61 74 65 53 74 61 |72.    u|pDateSta|
|000006d0| 67 65 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 73 65 |ge.end r|epeat.se|
|000006e0| 74 20 74 68 65 20 69 6d | 6d 65 64 69 61 74 65 20 |t the im|mediate |
|000006f0| 6f 66 20 73 70 72 69 74 | 65 20 31 34 3d 66 61 6c |of sprit|e 14=fal|
|00000700| 73 65 0d 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |se.puppe|tSprite |
|00000710| 31 34 2c 20 66 61 6c 73 | 65 0d 70 75 70 70 65 74 |14, fals|e.puppet|
|00000720| 53 70 72 69 74 65 20 39 | 2c 66 61 6c 73 65 0d 73 |Sprite 9|,false.s|
|00000730| 65 74 20 74 68 65 20 69 | 6d 6d 65 64 69 61 74 65 |et the i|mmediate|
|00000740| 20 6f 66 20 73 70 72 69 | 74 65 20 39 3d 66 61 6c | of spri|te 9=fal|
|00000750| 73 65 0d 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |se.puppe|tSprite |
|00000760| 36 2c 66 61 6c 73 65 0d | 70 75 70 70 65 74 53 70 |6,false.|puppetSp|
|00000770| 72 69 74 65 20 33 2c 66 | 61 6c 73 65 0d 70 75 70 |rite 3,f|alse.pup|
|00000780| 70 65 74 53 70 72 69 74 | 65 20 32 2c 20 66 61 6c |petSprit|e 2, fal|
|00000790| 73 65 0d 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |se.puppe|tSprite |
|000007a0| 34 2c 66 61 6c 73 65 0d | 67 6f 20 74 6f 20 6c 61 |4,false.|go to la|
|000007b0| 62 65 6c 28 31 29 0d 0d | 20 20 20 20 0d 2d 2d 20 |bel(1)..|    .-- |
|000007c0| 20 20 0d 6d 61 63 72 6f | 20 50 6f 70 51 75 69 74 |  .macro| PopQuit|
|000007d0| 0d 20 20 20 20 67 6c 6f | 62 61 6c 20 50 6f 70 41 |.    glo|bal PopA|
|000007e0| 6c 70 68 61 2c 20 50 6f | 70 41 6c 70 68 61 32 2c |lpha, Po|pAlpha2,|
|000007f0| 20 50 6f 70 53 74 79 6c | 65 2c 20 50 6f 70 49 63 | PopStyl|e, PopIc|
|00000800| 6f 6e 2c 20 73 74 61 72 | 74 69 6e 67 50 6f 69 6e |on, star|tingPoin|
|00000810| 74 0d 20 20 20 20 0d 20 | 20 20 20 69 66 20 6f 62 |t.    . |   if ob|
|00000820| 6a 65 63 74 50 28 20 50 | 6f 70 41 6c 70 68 61 32 |jectP( P|opAlpha2|
|00000830| 20 29 20 74 68 65 6e 20 | 50 6f 70 41 6c 70 68 61 | ) then |PopAlpha|
|00000840| 32 28 20 6d 44 69 73 70 | 6f 73 65 20 29 0d 20 20 |2( mDisp|ose ).  |
|00000850| 20 20 0d 0d 20 20 20 20 | 69 66 20 73 74 61 72 74 |  ..    |if start|
|00000860| 69 6e 67 50 6f 69 6e 74 | 20 3d 20 22 69 6e 74 65 |ingPoint| = "inte|
|00000870| 72 66 61 63 65 22 20 74 | 68 65 6e 0d 20 20 20 20 |rface" t|hen.    |
|00000880| 20 20 20 20 67 6f 20 74 | 6f 20 66 72 61 6d 65 20 |    go t|o frame |
|00000890| 22 69 6e 74 65 72 66 61 | 63 65 22 20 6f 66 20 6d |"interfa|ce" of m|
|000008a0| 6f 76 69 65 20 22 a5 4d | 61 69 6e 20 4d 65 6e 75 |ovie ".M|ain Menu|
|000008b0| 22 0d 20 20 20 20 65 6c | 73 65 20 67 6f 20 74 6f |".    el|se go to|
|000008c0| 20 66 72 61 6d 65 20 22 | 78 6f 62 6a 22 20 6f 66 | frame "|xobj" of|
|000008d0| 20 6d 6f 76 69 65 20 22 | a5 4d 61 69 6e 20 4d 65 | movie "|.Main Me|
|000008e0| 6e 75 22 0d 0d 2d 2d 20 | 72 65 74 75 72 6e 20 74 |nu"..-- |return t|
|000008f0| 65 78 74 20 70 6f 70 55 | 70 20 6d 65 6e 75 0d 6d |ext popU|p menu.m|
|00000900| 61 63 72 6f 20 4d 61 6b | 65 50 6f 70 41 6c 70 68 |acro Mak|ePopAlph|
|00000910| 61 32 0d 20 20 20 20 67 | 6c 6f 62 61 6c 20 50 6f |a2.    g|lobal Po|
|00000920| 70 41 6c 70 68 61 32 0d | 20 20 20 20 69 66 20 6f |pAlpha2.|    if o|
|00000930| 62 6a 65 63 74 50 28 20 | 50 6f 70 41 6c 70 68 61 |bjectP( |PopAlpha|
|00000940| 32 20 29 20 74 68 65 6e | 20 50 6f 70 41 6c 70 68 |2 ) then| PopAlph|
|00000950| 61 32 28 20 6d 44 69 73 | 70 6f 73 65 20 29 0d 20 |a2( mDis|pose ). |
|00000960| 20 20 20 73 65 74 20 6d | 65 6e 75 4c 69 73 74 20 |   set m|enuList |
|00000970| 3d 20 74 68 65 20 74 65 | 78 74 20 6f 66 20 63 61 |= the te|xt of ca|
|00000980| 73 74 20 43 34 35 0d 20 | 20 20 20 2d 2d 20 42 65 |st C45. |   -- Be|
|00000990| 20 73 75 72 65 20 74 6f | 20 73 65 74 20 70 61 72 | sure to| set par|
|000009a0| 61 6d 65 74 65 72 20 69 | 74 65 6d 4e 75 6d 20 66 |ameter i|temNum f|
|000009b0| 6f 72 20 50 6f 70 4e 75 | 6d 20 6f 72 20 50 6f 70 |or PopNu|m or Pop|
|000009c0| 54 65 78 74 20 74 6f 20 | 7a 65 72 6f 2e 0d 20 20 |Text to |zero..  |
|000009d0| 20 20 73 65 74 20 50 6f | 70 41 6c 70 68 61 32 20 |  set Po|pAlpha2 |
|000009e0| 3d 20 50 6f 70 4d 65 6e | 75 28 6d 4e 65 77 2c 6d |= PopMen|u(mNew,m|
|000009f0| 65 6e 75 4c 69 73 74 2c | 20 32 31 36 29 0d 0d 20 |enuList,| 216).. |
|00000a00| 20 20 20 69 66 20 6e 6f | 74 20 6f 62 6a 65 63 74 |   if no|t object|
|00000a10| 50 28 20 50 6f 70 41 6c | 70 68 61 32 20 29 20 74 |P( PopAl|pha2 ) t|
|00000a20| 68 65 6e 20 0d 20 20 20 | 20 20 20 20 20 61 6c 65 |hen .   |     ale|
|00000a30| 72 74 20 22 50 6f 70 4d | 65 6e 75 20 4f 62 6a 65 |rt "PopM|enu Obje|
|00000a40| 63 74 20 6e 6f 74 20 6d | 61 64 65 3a 20 22 20 26 |ct not m|ade: " &|
|00000a50| 20 73 74 72 69 6e 67 28 | 20 50 6f 70 41 6c 70 68 | string(| PopAlph|
|00000a60| 61 32 20 29 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |a2 ).   | end if.|
|00000a70| 0d 20 20 20 20 2d 2d 20 | 74 6f 20 73 65 74 20 61 |.    -- |to set a|
|00000a80| 75 74 6f 6d 61 74 69 63 | 20 72 65 6d 65 6d 62 65 |utomatic| remembe|
|00000a90| 72 69 6e 67 20 6f 66 20 | 6c 61 73 74 20 69 74 65 |ring of |last ite|
|00000aa0| 6d 20 73 65 6c 65 63 74 | 65 64 2e 20 20 0d 20 20 |m select|ed.  .  |
|00000ab0| 20 20 50 6f 70 41 6c 70 | 68 61 32 28 6d 53 6d 61 |  PopAlp|ha2(mSma|
|00000ac0| 72 74 2c 20 31 20 29 0d | 0d 6d 61 63 72 6f 20 41 |rt, 1 ).|.macro A|
|00000ad0| 6c 70 68 61 62 65 74 4d | 65 6e 75 32 20 20 20 20 |lphabetM|enu2    |
|00000ae0| 2d 2d 20 20 61 20 70 6f | 70 20 75 70 20 6d 65 6e |--  a po|p up men|
|00000af0| 75 20 72 65 74 75 72 6e | 69 6e 67 20 69 74 65 6d |u return|ing item|
|00000b00| 20 74 65 78 74 0d 20 20 | 20 20 67 6c 6f 62 61 6c | text.  |  global|
|00000b10| 20 20 50 6f 70 41 6c 70 | 68 61 32 0d 20 20 20 20 |  PopAlp|ha2.    |
|00000b20| 73 65 74 20 73 48 20 3d | 20 74 68 65 20 6c 65 66 |set sH =| the lef|
|00000b30| 74 20 6f 66 20 73 70 72 | 69 74 65 20 36 20 2b 20 |t of spr|ite 6 + |
|00000b40| 74 68 65 20 73 74 61 67 | 65 4c 65 66 74 20 2b 20 |the stag|eLeft + |
|00000b50| 31 0d 20 20 20 20 73 65 | 74 20 73 56 20 3d 20 74 |1.    se|t sV = t|
|00000b60| 68 65 20 74 6f 70 20 6f | 66 20 73 70 72 69 74 65 |he top o|f sprite|
|00000b70| 20 36 20 2b 20 74 68 65 | 20 73 74 61 67 65 54 6f | 6 + the| stageTo|
|00000b80| 70 20 2b 20 31 0d 0d 20 | 20 20 20 73 65 74 20 72 |p + 1.. |   set r|
|00000b90| 65 73 75 6c 74 20 3d 20 | 50 6f 70 41 6c 70 68 61 |esult = |PopAlpha|
|00000ba0| 32 28 6d 50 6f 70 54 65 | 78 74 2c 20 73 48 2c 20 |2(mPopTe|xt, sH, |
|00000bb0| 73 56 2c 20 30 29 0d 20 | 20 20 20 69 66 20 73 74 |sV, 0). |   if st|
|00000bc0| 72 69 6e 67 28 20 72 65 | 73 75 6c 74 20 29 20 3d |ring( re|sult ) =|
|00000bd0| 20 22 22 20 74 68 65 6e | 20 65 78 69 74 0d 20 20 | "" then| exit.  |
|00000be0| 20 20 65 6c 73 65 20 73 | 65 74 20 74 68 65 20 74 |  else s|et the t|
|00000bf0| 65 78 74 20 6f 66 20 63 | 61 73 74 20 42 37 34 20 |ext of c|ast B74 |
|00000c00| 20 74 6f 20 22 20 20 20 | 22 20 26 20 73 74 72 69 | to "   |" & stri|
|00000c10| 6e 67 28 20 72 65 73 75 | 6c 74 20 29 0d 0d 0d 2d |ng( resu|lt )...-|
|00000c20| 2d 0d 6d 61 63 72 6f 20 | 69 6e 69 74 0d 67 6c 6f |-.macro |init.glo|
|00000c30| 62 61 6c 20 62 65 67 69 | 6e 46 72 61 6d 65 2c 65 |bal begi|nFrame,e|
|00000c40| 6e 64 46 72 61 6d 65 2c | 63 75 72 72 65 6e 74 46 |ndFrame,|currentF|
|00000c50| 72 61 6d 65 2c 74 65 73 | 74 46 72 61 6d 65 0d 70 |rame,tes|tFrame.p|
|00000c60| 75 70 70 65 74 53 70 72 | 69 74 65 20 32 2c 20 74 |uppetSpr|ite 2, t|
|00000c70| 72 75 65 2d 2d 62 6c 61 | 63 6b 0d 70 75 70 70 65 |rue--bla|ck.puppe|
|00000c80| 74 53 70 72 69 74 65 20 | 33 2c 74 72 75 65 2d 2d |tSprite |3,true--|
|00000c90| 6d 6f 76 69 65 0d 70 75 | 70 70 65 74 53 70 72 69 |movie.pu|ppetSpri|
|00000ca0| 74 65 20 34 2c 74 72 75 | 65 2d 2d 73 65 6c 65 63 |te 4,tru|e--selec|
|00000cb0| 74 52 45 63 74 0d 73 65 | 74 20 74 68 65 20 69 6d |tREct.se|t the im|
|00000cc0| 6d 65 64 69 61 74 65 20 | 6f 66 20 73 70 72 69 74 |mediate |of sprit|
|00000cd0| 65 20 34 20 74 6f 20 74 | 72 75 65 0d 70 75 70 70 |e 4 to t|rue.pupp|
|00000ce0| 65 74 53 70 72 69 74 65 | 20 35 2c 74 72 75 65 2d |etSprite| 5,true-|
|00000cf0| 2d 73 65 6c 65 63 74 20 | 6d 6f 6e 69 74 6f 72 0d |-select |monitor.|
|00000d00| 70 75 70 70 65 74 53 70 | 72 69 74 65 20 36 2c 74 |puppetSp|rite 6,t|
|00000d10| 72 75 65 2d 2d 73 65 6c | 65 63 74 20 62 6f 74 74 |rue--sel|ect bott|
|00000d20| 6f 6d 0d 73 65 74 20 74 | 68 65 20 69 6d 6d 65 64 |om.set t|he immed|
|00000d30| 69 61 74 65 20 6f 66 20 | 73 70 72 69 74 65 20 36 |iate of |sprite 6|
|00000d40| 3d 74 72 75 65 0d 73 65 | 74 20 74 68 65 20 69 6d |=true.se|t the im|
|00000d50| 6d 65 64 69 61 74 65 20 | 6f 66 20 73 70 72 69 74 |mediate |of sprit|
|00000d60| 65 20 35 3d 74 72 75 65 | 0d 73 65 74 20 74 68 65 |e 5=true|.set the|
|00000d70| 20 73 74 72 65 74 63 68 | 20 6f 66 20 73 70 72 69 | stretch| of spri|
|00000d80| 74 65 20 33 20 74 6f 20 | 74 72 75 65 0d 73 65 74 |te 3 to |true.set|
|00000d90| 20 62 65 67 69 6e 46 72 | 61 6d 65 3d 41 31 31 0d | beginFr|ame=A11.|
|00000da0| 2d 2d 73 65 74 20 65 6e | 64 46 72 61 6d 65 3d 41 |--set en|dFrame=A|
|00000db0| 33 35 0d 73 65 74 20 65 | 6e 64 46 72 61 6d 65 3d |35.set e|ndFrame=|
|00000dc0| 42 35 38 0d 73 65 74 20 | 63 75 72 72 65 6e 74 46 |B58.set |currentF|
|00000dd0| 72 61 6d 65 3d 62 65 67 | 69 6e 46 72 61 6d 65 0d |rame=beg|inFrame.|
|00000de0| 0d 63 79 63 6c 65 43 61 | 73 74 0d 0d 0d 0d 2d 2d |.cycleCa|st....--|
|00000df0| 0d 6d 61 63 72 6f 20 69 | 6e 69 74 53 65 74 74 69 |.macro i|nitSetti|
|00000e00| 6e 67 73 0d 67 6c 6f 62 | 61 6c 20 62 65 67 69 6e |ngs.glob|al begin|
|00000e10| 46 72 61 6d 65 2c 65 6e | 64 46 72 61 6d 65 2c 63 |Frame,en|dFrame,c|
|00000e20| 75 72 72 65 6e 74 46 72 | 61 6d 65 0d 70 75 70 70 |urrentFr|ame.pupp|
|00000e30| 65 74 53 70 72 69 74 65 | 20 32 2c 20 74 72 75 65 |etSprite| 2, true|
|00000e40| 2d 2d 62 6c 61 63 6b 0d | 70 75 70 70 65 74 53 70 |--black.|puppetSp|
|00000e50| 72 69 74 65 20 33 2c 74 | 72 75 65 2d 2d 6d 6f 76 |rite 3,t|rue--mov|
|00000e60| 69 65 0d 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |ie.puppe|tSprite |
|00000e70| 34 2c 74 72 75 65 2d 2d | 73 65 6c 65 63 74 52 45 |4,true--|selectRE|
|00000e80| 63 74 0d 73 65 74 20 74 | 68 65 20 69 6d 6d 65 64 |ct.set t|he immed|
|00000e90| 69 61 74 65 20 6f 66 20 | 73 70 72 69 74 65 20 34 |iate of |sprite 4|
|00000ea0| 20 74 6f 20 74 72 75 65 | 0d 73 65 74 20 74 68 65 | to true|.set the|
|00000eb0| 20 73 74 72 65 74 63 68 | 20 6f 66 20 73 70 72 69 | stretch| of spri|
|00000ec0| 74 65 20 33 20 74 6f 20 | 74 72 75 65 0d 73 65 74 |te 3 to |true.set|
|00000ed0| 20 62 65 67 69 6e 46 72 | 61 6d 65 3d 41 31 31 0d | beginFr|ame=A11.|
|00000ee0| 2d 2d 73 65 74 20 65 6e | 64 46 72 61 6d 65 3d 41 |--set en|dFrame=A|
|00000ef0| 33 35 0d 73 65 74 20 65 | 6e 64 46 72 61 6d 65 3d |35.set e|ndFrame=|
|00000f00| 42 35 38 0d 73 65 74 20 | 63 75 72 72 65 6e 74 46 |B58.set |currentF|
|00000f10| 72 61 6d 65 3d 62 65 67 | 69 6e 46 72 61 6d 65 0d |rame=beg|inFrame.|
|00000f20| 63 79 63 6c 65 43 61 73 | 74 0d 0d 2d 2d 0d 6d 61 |cycleCas|t..--.ma|
|00000f30| 63 72 6f 20 72 65 53 69 | 7a 65 4d 6f 6e 69 74 6f |cro reSi|zeMonito|
|00000f40| 72 0d 67 6c 6f 62 61 6c | 20 62 65 67 69 6e 46 72 |r.global| beginFr|
|00000f50| 61 6d 65 2c 65 6e 64 46 | 72 61 6d 65 2c 63 75 72 |ame,endF|rame,cur|
|00000f60| 72 65 6e 74 46 72 61 6d | 65 0d 73 65 74 20 74 68 |rentFram|e.set th|
|00000f70| 65 20 69 6e 6b 20 6f 66 | 20 73 70 72 69 74 65 20 |e ink of| sprite |
|00000f80| 35 3d 32 0d 73 65 74 20 | 74 68 65 20 69 6e 6b 20 |5=2.set |the ink |
|00000f90| 6f 66 20 73 70 72 69 74 | 65 20 36 3d 32 0d 72 65 |of sprit|e 6=2.re|
|00000fa0| 70 65 61 74 20 77 68 69 | 6c 65 20 74 68 65 20 6d |peat whi|le the m|
|00000fb0| 6f 75 73 65 44 6f 77 6e | 0d 20 20 20 20 69 66 20 |ouseDown|.    if |
|00000fc0| 74 68 65 20 6d 6f 75 73 | 65 56 20 3c 20 74 68 65 |the mous|eV < the|
|00000fd0| 20 62 6f 74 74 6f 6d 20 | 6f 66 20 73 70 72 69 74 | bottom |of sprit|
|00000fe0| 65 20 38 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |e 8 then|.       |
|00000ff0| 20 73 65 74 20 6e 65 77 | 4d 6f 75 73 65 56 3d 74 | set new|MouseV=t|
|00001000| 68 65 20 62 6f 74 74 6f | 6d 20 6f 66 20 73 70 72 |he botto|m of spr|
|00001010| 69 74 65 20 38 0d 20 20 | 20 20 65 6c 73 65 0d 20 |ite 8.  |  else. |
|00001020| 20 20 20 20 20 20 20 73 | 65 74 20 6e 65 77 4d 6f |       s|et newMo|
|00001030| 75 73 65 56 3d 74 68 65 | 20 6d 6f 75 73 65 56 0d |useV=the| mouseV.|
|00001040| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 69 |    end |if.    i|
|00001050| 66 20 74 68 65 20 6d 6f | 75 73 65 48 20 3c 20 74 |f the mo|useH < t|
|00001060| 68 65 20 72 69 67 68 74 | 20 6f 66 20 73 70 72 69 |he right| of spri|
|00001070| 74 65 20 38 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |te 8 the|n.      |
|00001080| 20 20 73 65 74 20 6e 65 | 77 4d 6f 75 73 65 48 3d |  set ne|wMouseH=|
|00001090| 74 68 65 20 72 69 67 68 | 74 20 6f 66 20 73 70 72 |the righ|t of spr|
|000010a0| 69 74 65 20 38 0d 20 20 | 20 20 65 6c 73 65 0d 20 |ite 8.  |  else. |
|000010b0| 20 20 20 20 20 20 20 73 | 65 74 20 6e 65 77 4d 6f |       s|et newMo|
|000010c0| 75 73 65 48 3d 74 68 65 | 20 6d 6f 75 73 65 48 0d |useH=the| mouseH.|
|000010d0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 73 |    end |if.    s|
|000010e0| 70 72 69 74 65 42 6f 78 | 20 36 2c 20 74 68 65 20 |priteBox| 6, the |
|000010f0| 6c 65 66 74 20 6f 66 20 | 73 70 72 69 74 65 20 36 |left of |sprite 6|
|00001100| 2c 20 6e 65 77 4d 6f 75 | 73 65 56 2d 31 35 2c 6e |, newMou|seV-15,n|
|00001110| 65 77 4d 6f 75 73 65 48 | 2c 20 6e 65 77 4d 6f 75 |ewMouseH|, newMou|
|00001120| 73 65 56 0d 20 20 20 73 | 70 72 69 74 65 42 6f 78 |seV.   s|priteBox|
|00001130| 20 35 2c 20 74 68 65 20 | 6c 65 66 74 20 20 6f 66 | 5, the |left  of|
|00001140| 20 73 70 72 69 74 65 20 | 35 2c 20 74 68 65 20 74 | sprite |5, the t|
|00001150| 6f 70 20 6f 66 20 73 70 | 72 69 74 65 20 35 2c 20 |op of sp|rite 5, |
|00001160| 6e 65 77 4d 6f 75 73 65 | 48 2c 20 6e 65 77 4d 6f |newMouse|H, newMo|
|00001170| 75 73 65 56 2d 31 35 0d | 0d 0d 2d 2d 20 69 73 20 |useV-15.|..-- is |
|00001180| 74 68 65 20 63 75 72 72 | 65 6e 74 46 72 61 6d 65 |the curr|entFrame|
|00001190| 20 74 68 65 20 74 61 6c | 6b 69 6e 67 20 68 65 61 | the tal|king hea|
|000011a0| 64 2c 20 74 68 65 6e 0d | 20 20 20 20 2d 2d 73 65 |d, then.|    --se|
|000011b0| 74 20 69 74 20 6f 74 20 | 63 6f 70 79 0d 20 20 20 |t it ot |copy.   |
|000011c0| 20 69 66 20 63 75 72 72 | 65 6e 74 46 72 61 6d 65 | if curr|entFrame|
|000011d0| 3c 20 41 33 33 20 74 68 | 65 6e 20 73 65 74 20 74 |< A33 th|en set t|
|000011e0| 68 65 20 69 6e 6b 20 6f | 66 20 73 70 72 69 74 65 |he ink o|f sprite|
|000011f0| 20 33 20 3d 33 36 0d 20 | 20 20 20 69 66 20 63 75 | 3 =36. |   if cu|
|00001200| 72 72 65 6e 74 46 72 61 | 6d 65 3e 41 33 33 20 74 |rrentFra|me>A33 t|
|00001210| 68 65 6e 20 73 65 74 20 | 74 68 65 20 69 6e 6b 20 |hen set |the ink |
|00001220| 6f 66 20 73 70 72 69 74 | 65 20 33 20 3d 30 0d 20 |of sprit|e 3 =0. |
|00001230| 20 20 20 20 20 20 20 69 | 66 20 63 75 72 72 65 6e |       i|f curren|
|00001240| 74 46 72 61 6d 65 20 3e | 20 65 6e 64 46 72 61 6d |tFrame >| endFram|
|00001250| 65 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 73 |e then. |       s|
|00001260| 65 74 20 63 75 72 72 65 | 6e 74 46 72 61 6d 65 3d |et curre|ntFrame=|
|00001270| 62 65 67 69 6e 46 72 61 | 6d 65 0d 20 20 20 20 20 |beginFra|me.     |
|00001280| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 73 65 74 |else.   |     set|
|00001290| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|000012a0| 73 70 72 69 74 65 20 33 | 3d 20 63 75 72 72 65 6e |sprite 3|= curren|
|000012b0| 74 46 72 61 6d 65 0d 20 | 20 20 20 20 20 20 20 73 |tFrame. |       s|
|000012c0| 65 74 20 63 75 72 72 65 | 6e 74 46 72 61 6d 65 3d |et curre|ntFrame=|
|000012d0| 63 75 72 72 65 6e 74 46 | 72 61 6d 65 2b 31 0d 20 |currentF|rame+1. |
|000012e0| 20 20 20 65 6e 64 20 69 | 66 20 20 20 20 20 20 20 |   end i|f       |
|000012f0| 20 0d 20 20 20 20 75 70 | 44 61 74 65 53 74 61 67 | .    up|DateStag|
|00001300| 65 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 73 65 74 |e.end re|peat.set|
|00001310| 20 74 68 65 20 69 6e 6b | 20 6f 66 20 73 70 72 69 | the ink| of spri|
|00001320| 74 65 20 35 3d 31 0d 0d | 70 75 70 70 65 74 53 70 |te 5=1..|puppetSp|
|00001330| 72 69 74 65 20 32 2c 20 | 66 61 6c 73 65 0d 70 75 |rite 2, |false.pu|
|00001340| 70 70 65 74 53 70 72 69 | 74 65 20 33 2c 20 66 61 |ppetSpri|te 3, fa|
|00001350| 6c 73 65 0d 70 75 70 70 | 65 74 53 70 72 69 74 65 |lse.pupp|etSprite|
|00001360| 20 34 2c 20 66 61 6c 73 | 65 0d 73 65 74 20 74 68 | 4, fals|e.set th|
|00001370| 65 20 69 6d 6d 65 64 69 | 61 74 65 20 6f 66 20 73 |e immedi|ate of s|
|00001380| 70 72 69 74 65 20 34 3d | 66 61 6c 73 65 0d 70 75 |prite 4=|false.pu|
|00001390| 70 70 65 74 53 70 72 69 | 74 65 20 35 2c 20 66 61 |ppetSpri|te 5, fa|
|000013a0| 6c 73 65 0d 73 65 74 20 | 74 68 65 20 69 6d 6d 65 |lse.set |the imme|
|000013b0| 64 69 61 74 65 20 6f 66 | 20 73 70 72 69 74 65 20 |diate of| sprite |
|000013c0| 35 3d 66 61 6c 73 65 0d | 70 75 70 70 65 74 53 70 |5=false.|puppetSp|
|000013d0| 72 69 74 65 20 36 2c 20 | 66 61 6c 73 65 0d 73 65 |rite 6, |false.se|
|000013e0| 74 20 74 68 65 20 69 6d | 6d 65 64 69 61 74 65 20 |t the im|mediate |
|000013f0| 6f 66 20 73 70 72 69 74 | 65 20 36 3d 66 61 6c 73 |of sprit|e 6=fals|
|00001400| 65 0d 67 6f 20 74 6f 20 | 6c 61 62 65 6c 28 31 29 |e.go to |label(1)|
|00001410| 0d 0d 2d 2d 0d 6d 61 63 | 72 6f 20 69 6e 69 74 46 |..--.mac|ro initF|
|00001420| 72 61 6d 65 53 6c 69 64 | 65 72 0d 67 6c 6f 62 61 |rameSlid|er.globa|
|00001430| 6c 20 4c 2c 69 6e 63 72 | 65 6d 65 6e 74 2c 73 74 |l L,incr|ement,st|
|00001440| 61 72 74 4c 6f 63 48 2c | 62 65 67 69 6e 46 72 61 |artLocH,|beginFra|
|00001450| 6d 65 2c 63 75 72 72 65 | 6e 74 46 72 61 6d 65 0d |me,curre|ntFrame.|
|00001460| 70 75 70 70 65 74 53 70 | 72 69 74 65 20 31 30 2c |puppetSp|rite 10,|
|00001470| 74 72 75 65 2d 2d 20 74 | 68 65 20 73 6c 69 64 65 |true-- t|he slide|
|00001480| 72 0d 73 65 74 20 74 68 | 65 20 69 6d 6d 65 64 69 |r.set th|e immedi|
|00001490| 61 74 65 20 6f 66 20 73 | 70 72 69 74 65 20 31 30 |ate of s|prite 10|
|000014a0| 3d 74 72 75 65 0d 70 75 | 70 70 65 74 53 70 72 69 |=true.pu|ppetSpri|
|000014b0| 74 65 20 31 31 2c 74 72 | 75 65 20 2d 2d 20 74 68 |te 11,tr|ue -- th|
|000014c0| 65 20 74 65 78 74 20 66 | 69 65 6c 64 0d 73 65 74 |e text f|ield.set|
|000014d0| 20 57 3d 74 68 65 20 77 | 69 64 74 68 20 6f 66 20 | W=the w|idth of |
|000014e0| 73 70 72 69 74 65 20 39 | 0d 73 65 74 20 4c 3d 20 |sprite 9|.set L= |
|000014f0| 74 68 65 20 6c 65 66 74 | 20 6f 66 20 73 70 72 69 |the left| of spri|
|00001500| 74 65 20 39 0d 73 65 74 | 20 69 6e 63 72 65 6d 65 |te 9.set| increme|
|00001510| 6e 74 3d 57 2f 32 35 0d | 0d 6d 61 63 72 6f 20 66 |nt=W/25.|.macro f|
|00001520| 72 61 6d 65 53 6c 69 64 | 65 72 0d 67 6c 6f 62 61 |rameSlid|er.globa|
|00001530| 6c 20 4c 2c 69 6e 63 72 | 65 6d 65 6e 74 2c 73 74 |l L,incr|ement,st|
|00001540| 61 72 74 4c 6f 63 48 2c | 62 65 67 69 6e 46 72 61 |artLocH,|beginFra|
|00001550| 6d 65 2c 63 75 72 72 65 | 6e 74 46 72 61 6d 65 0d |me,curre|ntFrame.|
|00001560| 73 65 74 20 74 68 65 20 | 69 6e 6b 20 6f 66 20 73 |set the |ink of s|
|00001570| 70 72 69 74 65 20 31 30 | 3d 34 0d 72 65 70 65 61 |prite 10|=4.repea|
|00001580| 74 20 77 68 69 6c 65 20 | 74 68 65 20 6d 6f 75 73 |t while |the mous|
|00001590| 65 44 6f 77 6e 0d 20 20 | 20 20 73 65 74 20 6e 65 |eDown.  |  set ne|
|000015a0| 77 4c 6f 63 48 20 3d 20 | 63 6f 6e 73 74 72 61 69 |wLocH = |constrai|
|000015b0| 6e 48 28 39 20 2c 74 68 | 65 20 6d 6f 75 73 65 48 |nH(9 ,th|e mouseH|
|000015c0| 29 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |).    se|t the lo|
|000015d0| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 31 30 3d |cH of sp|rite 10=|
|000015e0| 20 6e 65 77 6c 6f 63 48 | 0d 20 20 20 20 73 65 74 | newlocH|.    set|
|000015f0| 20 6e 65 77 56 61 6c 75 | 65 3d 28 28 6e 65 77 4c | newValu|e=((newL|
|00001600| 6f 63 48 2d 4c 29 2f 69 | 6e 63 72 65 6d 65 6e 74 |ocH-L)/i|ncrement|
|00001610| 29 2b 31 0d 2d 2d 69 66 | 20 77 65 20 6e 65 65 64 |)+1.--if| we need|
|00001620| 65 64 20 69 74 20 73 63 | 72 6f 6c 6c 20 69 6e 20 |ed it sc|roll in |
|00001630| 72 65 76 65 72 73 65 0d | 2d 2d 73 65 74 20 6e 65 |reverse.|--set ne|
|00001640| 77 56 61 6c 75 65 3d 35 | 30 2d 6e 65 77 56 61 6c |wValue=5|0-newVal|
|00001650| 75 65 0d 69 66 20 6e 65 | 77 56 61 6c 75 65 3e 32 |ue.if ne|wValue>2|
|00001660| 38 20 74 68 65 6e 20 73 | 65 74 20 6e 65 77 56 61 |8 then s|et newVa|
|00001670| 6c 75 65 3d 33 30 0d 73 | 65 74 20 74 68 65 20 74 |lue=30.s|et the t|
|00001680| 65 78 74 20 6f 66 20 63 | 61 73 74 20 02 02 42 38 |ext of c|ast ..B8|
|00001690| 38 3d 20 73 74 72 69 6e | 67 28 6e 65 77 56 61 6c |8= strin|g(newVal|
|000016a0| 75 65 29 26 20 22 20 46 | 72 61 6d 65 73 20 50 65 |ue)& " F|rames Pe|
|000016b0| 72 20 53 65 63 6f 6e 64 | 22 0d 20 20 20 20 75 70 |r Second|".    up|
|000016c0| 64 61 74 65 53 74 61 67 | 65 0d 65 6e 64 20 72 65 |dateStag|e.end re|
|000016d0| 70 65 61 74 0d 73 65 74 | 20 74 68 65 20 69 6e 6b |peat.set| the ink|
|000016e0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 30 3d 30 0d | of spri|te 10=0.|
|000016f0| 0d 2d 2d 0d 6d 61 63 72 | 6f 20 72 65 73 65 74 56 |.--.macr|o resetV|
|00001700| 69 64 65 6f 0d 70 75 70 | 70 65 74 53 70 72 69 74 |ideo.pup|petSprit|
|00001710| 65 20 31 30 2c 20 66 61 | 6c 73 65 0d 73 65 74 20 |e 10, fa|lse.set |
|00001720| 74 68 65 20 69 6d 6d 65 | 64 69 61 74 65 20 6f 66 |the imme|diate of|
|00001730| 20 73 70 72 69 74 65 20 | 31 30 3d 66 61 6c 73 65 | sprite |10=false|
|00001740| 0d 70 75 70 70 65 74 53 | 70 72 69 74 65 20 31 31 |.puppetS|prite 11|
|00001750| 2c 66 61 6c 73 65 0d 67 | 6f 20 74 6f 20 6c 61 62 |,false.g|o to lab|
|00001760| 65 6c 28 31 29 0d 0d 2d | 2d 63 79 63 6c 65 20 74 |el(1)..-|-cycle t|
|00001770| 68 65 20 6f 6e 65 20 20 | 68 61 6e 64 65 72 0d 6d |he one  |hander.m|
|00001780| 61 63 72 6f 20 63 79 63 | 6c 65 43 61 73 74 0d 67 |acro cyc|leCast.g|
|00001790| 6c 6f 62 61 6c 20 62 65 | 67 69 6e 46 72 61 6d 65 |lobal be|ginFrame|
|000017a0| 2c 65 6e 64 46 72 61 6d | 65 2c 63 75 72 72 65 6e |,endFram|e,curren|
|000017b0| 74 46 72 61 6d 65 0d 2d | 2d 73 65 74 20 63 75 72 |tFrame.-|-set cur|
|000017c0| 72 65 6e 74 46 72 61 6d | 65 3d 62 65 67 69 6e 46 |rentFram|e=beginF|
|000017d0| 72 61 6d 65 0d 72 65 70 | 65 61 74 20 77 68 69 6c |rame.rep|eat whil|
|000017e0| 65 20 74 68 65 20 6d 6f | 75 73 65 55 70 0d 20 20 |e the mo|useUp.  |
|000017f0| 20 20 2d 2d 20 69 73 20 | 74 68 65 20 63 75 72 72 |  -- is |the curr|
|00001800| 65 6e 74 46 72 61 6d 65 | 20 74 68 65 20 74 61 6c |entFrame| the tal|
|00001810| 6b 69 6e 67 20 68 65 61 | 64 2c 20 74 68 65 6e 0d |king hea|d, then.|
|00001820| 20 20 20 20 2d 2d 73 65 | 74 20 69 74 20 6f 74 20 |    --se|t it ot |
|00001830| 63 6f 70 79 0d 20 20 20 | 20 69 66 20 63 75 72 72 |copy.   | if curr|
|00001840| 65 6e 74 46 72 61 6d 65 | 3c 20 41 33 33 20 74 68 |entFrame|< A33 th|
|00001850| 65 6e 20 73 65 74 20 74 | 68 65 20 69 6e 6b 20 6f |en set t|he ink o|
|00001860| 66 20 73 70 72 69 74 65 | 20 33 20 3d 33 36 0d 20 |f sprite| 3 =36. |
|00001870| 20 20 20 69 66 20 63 75 | 72 72 65 6e 74 46 72 61 |   if cu|rrentFra|
|00001880| 6d 65 3d 41 33 33 20 74 | 68 65 6e 20 73 65 74 20 |me=A33 t|hen set |
|00001890| 74 68 65 20 69 6e 6b 20 | 6f 66 20 73 70 72 69 74 |the ink |of sprit|
|000018a0| 65 20 33 20 3d 30 0d 20 | 20 20 20 20 20 20 20 69 |e 3 =0. |       i|
|000018b0| 66 20 63 75 72 72 65 6e | 74 46 72 61 6d 65 20 3e |f curren|tFrame >|
|000018c0| 20 65 6e 64 46 72 61 6d | 65 20 74 68 65 6e 0d 20 | endFram|e then. |
|000018d0| 20 20 20 20 20 20 20 73 | 65 74 20 63 75 72 72 65 |       s|et curre|
|000018e0| 6e 74 46 72 61 6d 65 3d | 62 65 67 69 6e 46 72 61 |ntFrame=|beginFra|
|000018f0| 6d 65 0d 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |me.     |else.   |
|00001900| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 |     set| the cas|
|00001910| 74 4e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 33 |tNum of |sprite 3|
|00001920| 3d 20 63 75 72 72 65 6e | 74 46 72 61 6d 65 0d 20 |= curren|tFrame. |
|00001930| 20 20 20 20 20 20 20 73 | 65 74 20 63 75 72 72 65 |       s|et curre|
|00001940| 6e 74 46 72 61 6d 65 3d | 63 75 72 72 65 6e 74 46 |ntFrame=|currentF|
|00001950| 72 61 6d 65 2b 31 0d 20 | 20 20 20 65 6e 64 20 69 |rame+1. |   end i|
|00001960| 66 0d 0d 75 70 64 61 74 | 65 53 74 61 67 65 0d 65 |f..updat|eStage.e|
|00001970| 6e 64 20 72 65 70 65 61 | 74 0d 20 0d 20 20 2d 2d |nd repea|t. .  --|
|00001980| 20 70 75 74 20 22 74 68 | 65 20 69 6e 6b 20 6f 66 | put "th|e ink of|
|00001990| 20 73 70 72 69 74 65 20 | 33 3d 22 26 74 68 65 20 | sprite |3="&the |
|000019a0| 69 6e 6b 20 6f 66 20 73 | 70 72 69 74 65 20 33 0d |ink of s|prite 3.|
|000019b0| 0d 0d 20 20 0d 0d 00 2e | 00 00 00 00 00 0d 00 0a |..  ....|........|
|000019c0| 00 03 00 00 00 0a 00 00 | 00 00 00 00 00 00 00 09 |........|........|
|000019d0| 00 0d 00 0a 00 03 01 00 | 00 0a 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 11 00 0d 00 0a | 00 03 00 00 00 0a 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 01 2d | 00 0d 00 0a 00 03 01 00 |.......-|........|
|00001a00| 00 0a 00 00 00 00 00 00 | 00 00 01 38 00 0d 00 0a |........|...8....|
|00001a10| 00 03 00 00 00 0a 00 00 | 00 00 00 00 00 00 01 99 |........|........|
|00001a20| 00 0d 00 0a 00 03 01 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001a30| 00 00 01 aa 00 0d 00 0a | 00 03 00 00 00 0a 00 00 |........|........|
|00001a40| 00 00 00 00 00 00 01 f7 | 00 0d 00 0a 00 03 01 00 |........|........|
|00001a50| 00 0a 00 00 00 00 00 00 | 00 00 01 fc 00 0d 00 0a |........|........|
|00001a60| 00 03 00 00 00 0a 00 00 | 00 00 00 00 00 00 02 02 |........|........|
|00001a70| 00 0d 00 0a 00 03 01 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 02 0e 00 0d 00 0a | 00 03 00 00 00 0a 00 00 |........|........|
|00001a90| 00 00 00 00 00 00 02 35 | 00 0d 00 0a 00 03 01 00 |.......5|........|
|00001aa0| 00 0a 00 00 00 00 00 00 | 00 00 02 36 00 0d 00 0a |........|...6....|
|00001ab0| 00 03 00 00 00 0a 00 00 | 00 00 00 00 00 00 02 4f |........|.......O|
|00001ac0| 00 0d 00 0a 00 03 01 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 02 50 00 0d 00 0a | 00 03 00 00 00 0a 00 00 |...P....|........|
|00001ae0| 00 00 00 00 00 00 06 51 | 00 0d 00 0a 00 03 01 00 |.......Q|........|
|00001af0| 00 0a 00 00 00 00 00 00 | 00 00 06 5d 00 0d 00 0a |........|...]....|
|00001b00| 00 03 00 00 00 0a 00 00 | 00 00 00 00 00 00 06 66 |........|.......f|
|00001b10| 00 0d 00 0a 00 03 01 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001b20| 00 00 06 77 00 0d 00 0a | 00 03 00 00 00 0a 00 00 |...w....|........|
|00001b30| 00 00 00 00 00 00 07 22 | 00 0d 00 0a 00 03 01 00 |......."|........|
|00001b40| 00 0a 00 00 00 00 00 00 | 00 00 07 23 00 0d 00 0a |........|...#....|
|00001b50| 00 03 00 00 00 0a 00 00 | 00 00 00 00 00 00 07 aa |........|........|
|00001b60| 00 10 00 0c 00 03 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 07 ab 00 0d 00 0a | 00 03 01 00 00 0a 00 00 |........|........|
|00001b80| 00 00 00 00 00 00 07 b0 | 00 0d 00 0a 00 03 00 00 |........|........|
|00001b90| 00 0a 00 00 00 00 00 00 | 00 00 08 f9 00 0d 00 0a |........|........|
|00001ba0| 00 03 01 00 00 0a 00 00 | 00 00 00 00 00 00 09 06 |........|........|
|00001bb0| 00 0d 00 0a 00 03 00 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001bc0| 00 00 0a c3 00 0d 00 0a | 00 03 01 00 00 0a 00 00 |........|........|
|00001bd0| 00 00 00 00 00 00 0a d0 | 00 0d 00 0a 00 03 00 00 |........|........|
|00001be0| 00 0a 00 00 00 00 00 00 | 00 00 0c 1c 00 0d 00 0a |........|........|
|00001bf0| 00 03 01 00 00 0a 00 00 | 00 00 00 00 00 00 0c 20 |........|....... |
|00001c00| 00 0d 00 0a 00 03 00 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001c10| 00 00 0d eb 00 0d 00 0a | 00 03 01 00 00 0a 00 00 |........|........|
|00001c20| 00 00 00 00 00 00 0d f7 | 00 0d 00 0a 00 03 00 00 |........|........|
|00001c30| 00 0a 00 00 00 00 00 00 | 00 00 0f 28 00 0d 00 0a |........|...(....|
|00001c40| 00 03 01 00 00 0a 00 00 | 00 00 00 00 00 00 0f 36 |........|.......6|
|00001c50| 00 0d 00 0a 00 03 00 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 0f 5d 00 0d 00 0a | 00 03 01 00 00 0a 00 00 |...]....|........|
|00001c70| 00 00 00 00 00 00 0f 5e | 00 0d 00 0a 00 03 00 00 |.......^|........|
|00001c80| 00 0a 00 00 00 00 00 00 | 00 00 14 0f 00 0d 00 0a |........|........|
|00001c90| 00 03 01 00 00 0a 00 00 | 00 00 00 00 00 00 14 1f |........|........|
|00001ca0| 00 0d 00 0a 00 03 00 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001cb0| 00 00 15 13 00 0d 00 0a | 00 03 01 00 00 0a 00 00 |........|........|
|00001cc0| 00 00 00 00 00 00 15 1f | 00 0d 00 0a 00 03 00 00 |........|........|
|00001cd0| 00 0a 00 00 00 00 00 00 | 00 00 16 ee 00 0d 00 0a |........|........|
|00001ce0| 00 03 01 00 00 0a 00 00 | 00 00 00 00 00 00 16 f9 |........|........|
|00001cf0| 00 0d 00 0a 00 03 00 00 | 00 0a 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 17 59 00 0d 00 0a | 00 03 01 00 00 0a 00 00 |...Y....|........|
|00001d10| 00 00 00 00 00 00 17 5a | 00 0d 00 0a 00 03 00 00 |.......Z|........|
|00001d20| 00 0a 00 00 00 00 00 00 | 00 00 17 79 00 0d 00 0a |........|...y....|
|00001d30| 00 03 01 00 00 0a 00 00 | 00 00 00 00 00 00 17 82 |........|........|
|00001d40| 00 0d 00 0a 00 03 00 00 | 00 0a 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+